@a = (1...10);
@b = (a...c);
foreach(@a)
{
    foreach(@b)
    {
	print $_,"  ";
    }
    print "\n",$_,"\n";
}
